Option Explicit
Sub B_Sample039()
    Dim myWb    As Workbook
    Dim myCbars As CommandBars
    Dim myCbar  As CommandBar
    Set myWb = Workbooks(1)			'Nï
    Set myCbars = myWb.CommandBars
    If myCbars Is Nothing Then
        MsgBox "S[OC"
    Else
        Set myCbar = myCbars(1)
        MsgBox myCbar.Name
    End If
    Set myCbars = Nothing			'
    Set myCbar = Nothing
    Set myWb = Nothing
End Sub
